home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
VPASCAL.LZH
/
SOUNDS
< prev
next >
Wrap
Text File
|
1985-08-08
|
384b
|
18 lines
PROGRAM SOUNDS; {let's see how the TONE procedure works}
VAR
NOTE : INTEGER;
DURATION : INTEGER;
BEGIN
DURATION := 500;
NOTE := 1;
TONE(NOTE,DURATION);
NOTE := 3;
TONE(NOTE,DURATION);
NOTE := 5;
TONE(NOTE,DURATION);
NOTE := 8;
TONE(NOTE,DURATION);
END.